home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / quips.lha / Quips! < prev    next >
Text File  |  1995-10-11  |  1KB  |  17 lines
  1. /**************************************************************************\
  2.               $VER: Quips, v1.41 (11-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; se=sendstring ; gu=getuser ; gu 1302307 ; a=result
  6. if a='' | a<1 | a>100 then a=random(1,100,time('s'));file='pfiles:Quips/Quip'||right(a,3,'0')
  7. call open(f1,file,'r') ; quip=readln(f1) ; call close(f1)
  8. tr 'n1z6c4 Use Control-Y for MCI Colors, Arrow Keys to Edit, or ENTER to Save Quip z0'
  9. addkeys (quip) ; se 'cb'right(a,3,'0')'cf>cai384 60}' ; gu 70 ; quip=result
  10. if right(quip,3)~='q1' then quip=quip||'q1' ; call open(f1,file,'w') ; call writeln(f1,quip)
  11. call close(f1) ; tr 'n1c9>>--z6c4 Quip 'a' z0c9--> ca'quip ; exit
  12. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  13.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  14.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  15. /** Last Edited: 11-Oct-95 ************************************************\
  16. \****************************************** Frontiers BBS (716)/823-9892 **/
  17.